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NN NN XX XX TTTTTTTTTT HH HH DDDDDDDD —aRRRRRRRR : 
NN NN XX XX TTTTTTTTTT HH HH DDDDDDDD —aRRRRRRRR 3 
NN NN XX XX TT He HH DD DD RR Ba 
NN NN XX XX TT Mx HH DD DD RR RR ; 
NNNN NN OX XX TT HH HH DD DD RR aa 
NNNN NN XK XX TT HH HH DD DD RR 3 
NN NN NN XX TT HHHHHHHHHH DD DD RRRRRRRR 
NN NN NN XX TT HHHHHHHHHH DD DD RRRRRRRR 
NN NNNN XX OXK TT HH =. «HH ODD DD RR RR : 
NN ONNNN XK XK TT ik HH DD DD RR RR ; 
NN NN KX XX TT HH HH DD DD RR = RR vias 
NN NN XX XX 1T HH HH DD DD RR RR ngs ; 
NN NN XX XX TT ae HH DDDDDDDD = RR Be seek : 
NN NN XX XX 1T He HH DDDDDDDD = RR Ra seas : 
LL 11 ; 
LL 111 ; 
LL 1] S$ ; 
LL 1] S$ : 
LL 1] SS ; 
LL II SS : 
LL 1] SSSSSS ; 
LL 1] SSSSSS ; 
LL 1] S$ 
LL 1] SS 
LL 1] SS 
LL 1] SS 
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BEGIN 


' 
eee eeeeeeeeeeeAeReekeAeReeeeeeeeeeeeeteKeeeeeeseeeeKeeteKeAteeeReeeeeteeeee 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


is es fe iece I$ anh ee UNDER A LICENSE AND MAY BE USED AND cones 
ONLY ACCORDANCE WIT F CEN AN TH THE 
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Se 


; NOTIC HIS SOFTWARE ANY 
!@ COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
'@ OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


a 
® 
® 
* 
® 
® 
= 
® 
* 
ft 
ie TRANSFERRED. . 
tw 
ft 
® 
7 
7 
® 
® 
® 
® 
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!@ THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
. aeoke ~~ = NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


ie DIGITAL ASSUMES NO RESPONSIB 


IBILI 
SOFTWARE ON EQUIPMENT WHICH IS N 


Ron Slert ed Gy Sfcs Hat MenerTY OF 1 
eee eee REAR RE AAA HEHEHE AAA AAA AAA AAAAAAAAAAAAARAARAAAAAARAAAREE 
pee 

FACILITY: FI1ACP Structure Level 2 

i ABSTRACT: 


This routine reads the next extension header, if any, of the 
given file. 


i ENVIRONMENT: 


STARLET operating system, including privileged system services 
and internal exec routines. 
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AUTHOR: Andrew C. Goldstein, CREATION DATE: 22-Jul-1977 17:40 


i MODIFIED BY: 
v03-001 ¢CDS0001 Christian D. Saether 30-Dec-1983 
Use L_NORM Linkage and BIND_COMMON macro. 
B0100 ACG00001 Andrew C. Goldste 10-Oct-1978 20:00 


Previous revision history moved to tie sear iia: REV 
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; $? 18 ¢ } GLOBAL ROUTINE NEXT_HEADER (HEADER, FCB, EXT_FID, SEGNUM) : L_NORM = 

; 1054 1 !44 

; § 1055 1! 

; 44 ! § } FUNCTIONAL DESCRIPTION: 

; 9 1 8 1} This routine reads the next extension header, if any, of t 

; 0 1059 1! indicated file. Extension data is taked from either the indlcoted 

=: re 1060 1! file header or the arguments. 

we: 1061 1! 

Fae 1006 . 3 

.. = 196 1 ! CALLING SEQUENCE: 

; § He: : NEXT_HEADER (ARG1, ARG2, ARG3, ARG4) 

; gf 1066 1 ! INPUT PARAMETERS: 

Tee. | 1067 1! ARG]: address of current file header or 0 

. TV 1068 1! ARG2: address of corresponding FCS or zero 

; 1069 1! ARGS: extension file ID, if present 

3 4 1979 : } ARG4: extension segment number, if present 

; 4 Inte 1 ! IMPLICIT INPUTS: 

; 4 1075 1! NONE 

; 85 1074 1! 

; 86 1075 1 ! OUTPUT PARAMETERS: 

; 8 1076 1! NONE | 

; =6«8B8 1077 1! 

; 1078 1 ! IMPLICIT OUTPUTS: 

; 1079 1! NONE 

; W 1080 1! 

: 9 1081 1 ! ROUTINE VALUE: 

Ba. 1036 1; Address of header read or 0 if none 

: «94 1083 1! 

; 1084 1 ! SIDE EFFECTS: 

; © 1085 1! File header may be read 

; | «97 1086 1! 

; #498 1087 1 !-- 

; PP 1088 1 

: 100 1089 BEGIN 

: 6101 1090 

3 10¢ 1091 MAP , 

; 1938 HEADER : REF BBLOCK, ! file header arg 

: 104 109 : REF BBLOCK, ! FCB arg 

3 192 1998 EXT_FID : REF BBLOCK; ! extension file ID arg 

; 199 1036 LOCAL 

; 108 109 NEW_HEADER : REF oe eee aagerees of extension file header read 

: 109 1098 EXT FCB : REF B ss of extension FCB 

3; 110 1099 FILE ID : BBLOCE Baa TT LeNGTH, ! file ID of extension header | 

; i 1139 SEG_RUMBER : WORD; : segment number of file header | 

: 118 1108 BIND_COMMON; | 

3 (116 11 

; 115 1104 EXTERNAL ROUTINE 

: 116 1105 READ_HEADER : L_NORM; ! read a file header 

; Vig 1138 

: #118 13 Stal 

3; «119 1108 ! Get the extension file number of the file header. If it is zero, then 
| 
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14-Sep-1984 
! there is no extension header. If it is non-zero, read the header, using 
the extension FCB if one exists. 

— LSS 4 


BEGIN 
CHSMOVE (FIDSC_LENGTH, HEADERCFH2$W WEXT. _FIDJ, FILE_ID); 
SEG_NUMBER = .AEADERLFH2$W_SEG_NUM]~+ 


ENSROVE (F IDSC LENGTH, .EXT_FID, FILE_ID); 
SEG_NUMBER = .SEGNUM; 


a -FILE_IDCFIDSW_NUM) EQL 0 
IF .CURRENT_VCBCVCBSV_EXTFIDJ 
THEN FILE WIDCFID$B_ NA J] EQ 0 
HEN it~ 0; 
“TF FCB NEQ 0 
THEN fF CBEFCBSL EXFCBI 
EL SE 0 
NEW_HEADER = READ -HEADER (FILE_ID, .EXT_FCB); 
Check the segment number of the header read for consistency. 
IF .SEG NUMBER NEQ .NEW HEADERCFH2$W_SEG_NUM] 
THEN ERR EXIT (SS$ _BADFILEHDR); 
RETURN .NEW_HEADER; 
END; ! end of routine NEXT_HEADER 
-TITLE NXTHOR 
IDENT \v04-000\ 
-EXTRN READ_HEADER 
-PSECT S$CODE$,NOWRT,2 


18- sep-19 4 2 93: $8: }3 VAX-11 Bliss-32_V 


40-742 
DISKSVMSMASTER: CF 11X.SRCINXTHDR.B32; ° 


007C 00000 ~ ENTRY a SP HEADER, Save R2,R3,R4,R5,R6 
5E 08 C 9008 SUBL2 
04 6¢ 9 999 CMPB eb) 
56 04 At : O0A BOVE Pas R, R6 
66 —E A6 6 : MOVC ne. et FILE 1D 
4 Ab 1 A 1 ADDW ; 4(R6), SEG 
9 11 1 BRB 
bE 0c BC 6 28 OOO1A 1$: MOVC3 ae @EXT_FID, FILE. ID 


D 14 
=Sep-1984 00:48: VAX-11 Bliss-32 V4.0-742 Page 5. 
2-80-1382 90:98:43 DISKSVMSMASTER:CFIIX.SRCINXTHDR.B32:1 > (2) 
52 10 Ac 80 0001 MOVW  SEGNUM, SEG_NUMBER 11 2 
ge : 2$ ist FILE_16 1125 | 
} 
50 98 AA D MOVL = 104 (BAS », RO 1127 
2F 0B OA 05 F BBC #5, 11(RO). 7$ 
0S AE TSTB) ss FIALE_ID+ 1128 | 
2A 1 BEQL 7 
50 08 AC OD 3$ MOVL FCB, RO 1133 
06 1 BEQL 
50 oc A 0g 90 MOVL 12(RO), EXT_FCB 
; D4 094 CLRL = EXT_FCB 
DD 0004 PUSHL EXT~FCB 1137 
04 AE 9F 0004 PUSHAB FILE_ID 
0000G CF 02 FB 0004 CALLS #2, READ_HEADER 
51 50 DO 0004 MOVL RO, NEW READER 
06 Al 32 B1 0005 CMPW  SEG_NUMBER, 4(NEW_HEADER) 1142 
05 13 0005 BEQL © 6$ 
0810 =F BF 0005 CHMU #2064 1143 
4 0005 RET 
50 51 DO 00058 6$ MOVL § NEW_HEADER, RO 1145 
04 0005 RET 
50 D4 O005F 7$ CLRL = RO 1147 
04 0006 RET 


; Routine Size: 98 bytes, Routine Base: S$CODE$ + 0000 


— MD PO LO0 OVW "DW OUWOONVws 
wise 
Pm 
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» 
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—_> —_ 
—_>-_ 
we WA 
iw & 


; 159 1148 

; 160 1149 1 END 

s 161 1150 0 ELUDOM 

; PSECT SUMMARY 

: Name Bytes Attributes 

: SCODES 98 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
3 Library Statistics 

Ra ee ee ee Cea ae Symbols -------- Pages Processing 

: File Total Loaded Percent Mapped Time 


| 
-$255$DUA28: (SYSLIBILIB.L32; 1 18619 24 0 1000 00:02.0 | 
| 
| 


a 


H COMMAND QUALIFIERS 
3 BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:NXTHDOR/OBJ=OBJ$:NXTHDR MSRC$:NXTHDR/UPDATE=(ENH$:NXTHDR) 
eg Fe 98 68fs. + 0 data bytes 
Elapsed. Tine: 
Lines/CPU Min $397 
Lexenes/CPU-Rin: 53214 


Memor 1 oUt : 198 pages 
Compi ation Complete 


ie Reect9He 99:58:48 ghSedaBbltteR2CHHECZ4Eanaruon.052:%% 
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